home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #1 / Amiga Plus CD - 1996 - No. 1.iso / pd / netz / amiconnect / install_amiconnect < prev    next >
Text File  |  1995-09-08  |  8KB  |  323 lines

  1. ;Installer V1.1 For Amiconnect V1
  2. ;
  3. ;©Martin Hunt 1995
  4. ;
  5. ;
  6.  
  7. (set amitcpdir
  8.    (askdir
  9.        (prompt "Where is AmiTCP installed?")
  10.        (help @askdir-help)
  11.        (default "dh1:amitcp")
  12.    )
  13. )
  14.  
  15. (makeassign "amitcp" amitcpdir
  16.  (safe)
  17. )
  18.  
  19. (set acdest
  20.    (askdir
  21.        (prompt "Where do you want Amiconnect to be installed?")
  22.        (help @askdir-help)
  23.        (default "amitcp:bin")
  24.    )
  25. )
  26. (set @default-dest acdest)
  27. (makeassign "ac" acdest
  28. (safe)
  29. )
  30.  
  31. (copyfiles
  32.    (prompt "Copying Amiconnect to " acdest )
  33.    (help @copyfiles-help)
  34.    (source "mainprogram")
  35.    (dest acdest)
  36.    (all)
  37.    (infos)
  38.    (confirm)
  39. )
  40.  
  41. (makedir "amitcp:docs"
  42.   (infos)
  43.   (safe)
  44. )
  45.  
  46. (set docdest
  47.    (askdir
  48.        (prompt "Where do you want Amiconnects Doc File to be installed?")
  49.        (help @askdir-help)
  50.        (default "amitcp:docs")
  51.    )
  52. )
  53.  
  54. (copyfiles
  55.    (prompt "Copying Amiconnect Docs to " docdest )
  56.    (help @copyfiles-help)
  57.    (source "docs/amiconnect.guide")
  58.    (dest docdest)
  59.    (infos)
  60.    (confirm)
  61. )
  62.  
  63. (copyfiles
  64.    (prompt "Copying Amiconnect Docs to amitcp:docs")
  65.    (help @copyfiles-help)
  66.    (source "docs/amiconnect.guide")
  67.    (dest "amitcp:docs")
  68.    (infos)
  69. )
  70.  
  71. (set installnews
  72.   (askbool
  73.      (default 1)
  74.      (prompt "Do you wish to install a new postnews script\nso that GRn can postnews.\nThis script will also allow GRn and other newseditors\nto use Newsed's group signature option.")
  75.      (help @ask-bool)
  76.   )
  77. )
  78.  
  79. (if (= installnews 1)
  80.     (  ( set whichpostnews
  81.            (askbool
  82.              (default 0)
  83.              (prompt "Are you a Demon Internet subscriber?")
  84.              (help "Does you email address end in .demon.co.uk?\nIf it does select Yes else select No")
  85.            )
  86.        )
  87.        (if (= whichpostnews 0)
  88.            (  (copyfiles
  89.                   (prompt "Copying PostNews to Amitcp:bin ")
  90.                   (help @copyfiles-help)
  91.                   (source "amitcp/bin/postnews.nntpput")
  92.                   (dest "amitcp:bin")
  93.                   (newname "postnews")
  94.                   (confirm)
  95.               )
  96.               (copyfiles
  97.                   (prompt "Copying NNTP Put to Amitcp:bin ")
  98.                   (help @copyfiles-help)
  99.                   (source "amitcp/bin/nntpput")
  100.                   (dest "amitcp:bin")
  101.                   (confirm)
  102.               )
  103.               (copyfiles
  104.                   (prompt "Copying Sendnews to Amitcp:bin ")
  105.                   (help @copyfiles-help)
  106.                   (source "amitcp/bin/sendnews")
  107.                   (dest "amitcp:bin")
  108.                   (confirm)
  109.               )
  110.  
  111.            )
  112.            (copyfiles
  113.                   (prompt "Copying PostNews to Amitcp:bin ")
  114.                   (help @copyfiles-help)
  115.                   (source "amitcp/bin/postnews.demon")
  116.                   (dest "amitcp:bin")
  117.                   (newname "postnews")
  118.                   (confirm)
  119.            )
  120.  
  121.        )
  122.        (copyfiles
  123.               (prompt "Copying Common News Stuff to Amitcp:bin ")
  124.               (help @copyfiles-help)
  125.               (source "amitcp/bin/all")
  126.               (dest "amitcp:bin")
  127.               (all)
  128.               (confirm)
  129.        )
  130.  
  131.     )
  132.     (set fo 0)
  133. )
  134.  
  135. (set installmail
  136.   (askbool
  137.      (default 1)
  138.      (prompt "Do you wish to install the mail daemon \nso that you can receive incoming mail")
  139.      (help @ask-bool)
  140.   )
  141. )
  142. (if (= installmail 1)
  143.     (
  144.       (copyfiles
  145.         (prompt "Copying Mail Server to Amitcp:serv ")
  146.         (help @copyfiles-help)
  147.         (source "amitcp/serv")
  148.         (all)
  149.         (dest "amitcp:serv")
  150.         (infos)
  151.         (confirm)
  152.       )
  153.  
  154.       (copyfiles
  155.          (prompt "Copying Mail Server Inetd Entry to t: ")
  156.          (help @copyfiles-help)
  157.          (source "amitcp/db/inetd.conf.add")
  158.          (dest "t:")
  159.          (infos)
  160.       )
  161.  
  162.       (run "type t:inetd.conf.add >> amitcp:db/inetd.conf")
  163.     )
  164. )
  165. (copylib
  166.    (prompt "Copying Apig.Library to Libs:" )
  167.    (help @copyfiles-help)
  168.    (source "Libs/apig.library")
  169.    (dest "Libs:")
  170.    (infos)
  171.    (confirm)
  172. )
  173.  
  174. (copylib
  175.    (prompt "Copying Rexxserdev.Library to Libs:" )
  176.    (help @copyfiles-help)
  177.    (source "Libs/rexxserdev.library")
  178.    (dest "Libs:")
  179.    (infos)
  180.    (confirm)
  181. )
  182.  
  183. (copylib
  184.    (prompt "Copying Rexxreqtools.Library to Libs:" )
  185.    (help @copyfiles-help)
  186.    (source "Libs/rexxreqtools.library")
  187.    (dest "Libs:")
  188.    (infos)
  189.    (confirm)
  190. )
  191.  
  192. (copylib
  193.    (prompt "Copying Rexxsupport.Library to Libs:" )
  194.    (help @copyfiles-help)
  195.    (source "Libs/rexxsupport.library")
  196.    (dest "Libs:")
  197.    (infos)
  198.    (confirm)
  199. )
  200.  
  201. (makedir "amitcp:usr"
  202.   (infos)
  203.   (safe)
  204. )
  205. (makedir "amitcp:usr/mail"
  206.   (infos)
  207.   (safe)
  208. )
  209. (makedir "amitcp:usr/news"
  210.   (infos)
  211.   (safe)
  212. )
  213. (makedir "amitcp:usr/spool"
  214.   (infos)
  215.   (safe)
  216. )
  217. (makedir "amitcp:usr/lib"
  218.   (infos)
  219.   (safe)
  220. )
  221.  
  222. (message "I now need to setup your \nusr,news,mail,spool and lib directories\nIf this is your first AmiTCP setup\n just use the defaults\nif not specify your current directories" (SAFE))
  223.  
  224. (set usrdir
  225.    (askdir
  226.        (prompt "Where is your usr: directory")
  227.        (help "This is the directory where all your \n news,mail,lib,spool directories are usually kept")
  228.        (default "amitcp:usr")
  229.    )
  230. )
  231.  
  232. (set uunewsdir
  233.    (askdir
  234.        (prompt "Where is your uunews: directory")
  235.        (help "This is the directory where all your \n news articles will be stored")
  236.        (default "amitcp:usr/news")
  237.    )
  238. )
  239. (set uumaildir
  240.    (askdir
  241.        (prompt "Where is your uumail: directory")
  242.        (help "This is the directory where all your \n mail will be stored")
  243.        (default "amitcp:usr/mail")
  244.    )
  245. )
  246. (set uulibdir
  247.    (askdir
  248.        (prompt "Where is your uulib: directory")
  249.        (help "This is the directory where various files are stored/n including your newsgroup, signature, header and config files/n/n It is NOT your libs: library directory")
  250.        (default "amitcp:usr/lib")
  251.    )
  252. )
  253. (makeassign "uulib" uulibdir (SAFE))
  254. (set uuspooldir
  255.    (askdir
  256.        (prompt "Where is your uuspool: directory")
  257.        (help "This is the directory where all your \n outgoing mail, news and the incoming news batchfile \nwill be stored")
  258.        (default "amitcp:usr/spool")
  259.    )
  260. )
  261.  
  262. (set intro ("; This file contain assigns to important directories\n"))
  263. (set intro2 ("; You may need to change the from what values are set\n"))
  264. (set firststline ("path amitcp:bin add \n"))
  265. (set line1 ("assign usr: %s \n" usrdir))
  266. (set line2 ("assign uunews: %s \n" uunewsdir))
  267. (set line3 ("assign uumail: %s \n" uumaildir))
  268. (set line4 ("assign uuspool: %s \n" uuspooldir))
  269. (set line5 ("assign uulib: %s \n" uulibdir))
  270. (set line6 ("assign inet: amitcp: \n"))
  271.  
  272. (textfile
  273.    (dest "amitcp:bin/amiconnect.dos")
  274.    (append intro)
  275.    (append intro2)
  276.    (append firstline)
  277.    (append line1)
  278.    (append line2)
  279.    (append line3)
  280.    (append line4)
  281.    (append line5)
  282.    (append line6)
  283. )
  284.  
  285. (textfile
  286.    (dest "t:newsgroups")
  287.    (append "comp.sys.amiga.announce 7\n")
  288.    (append "comp.sys.amiga.misc 7\n")
  289.    (append "demon.ip.support.amiga 7\n")
  290. )
  291.  
  292. (textfile
  293.    (dest "uulib:seq")
  294.    (append "1")
  295. )
  296.  
  297. (textfile
  298.    (dest "t:tmpaliases")
  299.    (append "Postmaster: $user")
  300. )
  301.  
  302. (run "type t:tmpaliases >> uulib:aliases"
  303.    (safe)
  304. )
  305.  
  306. (run "type t:newsgroups >> uulib:newsgroups"
  307.    (safe)
  308. )
  309.  
  310. (message "Starting Amiconnect Configuration Program"
  311.  (SAFE)
  312. )
  313.  
  314. (run "ac:amiconnect"
  315.    (safe)
  316. )
  317.  
  318. (message "Your mail or news program may require a file called uulib:config.\nAn example is included in the lib directory of this archive.\nYou will need to edit this and copy it to uulib:config."
  319. (safe)
  320. )
  321.  
  322. (message "Installation complete, you're on your own now")
  323.